home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024b.dsk / LOADHRCG.bas < prev    next >
BASIC Source File  |  2003-06-12  |  837b  |  26 lines
  1. 100  REM  PROGRAM TO LOAD HRCG
  2. 110  ONERR  GOTO 330
  3. 120 ADRS = 0
  4. 130  PRINT  CHR$(4);"BLOAD RBOOT"
  5. 140  CALL 520: REM  EXECUTE RBOOT
  6. 150 ADRS =  USR(0),"HRCG"
  7. 160  REM  BRING IN HRCG, ADRS=STARTING ADDRESS
  8. 170  PRINT "HOW MANY ALTERNATE CHARACTER SETS"
  9. 180  INPUT "WOULD YOU LIKE (0-9)? ";A
  10. 190  IF (A <0)  OR (A >9)  THEN 170
  11. 200  IF A = 0  THEN 300
  12. 210  IF ADRS < = 0  THEN ADRS = ADRS +65536: REM  MAKE ADRS POSITIVE
  13. 220 CS = ADRS -768 *A: HIMEM: CS
  14. 230 CH =  INT(CS/256):CL = CS -256 *CH
  15. 240  POKE ADRS +7,CL: POKE ADRS +8,CH
  16. 250  FOR I = 1 TO A
  17. 260  PRINT "NAME OF CHARACTER SET ";I;
  18. 270  INPUT CN$
  19. 280  PRINT  CHR$(4);"BLOAD ";CN$;",A";CS +(I -1) *768: REM  LOAD IN SET
  20. 290  NEXT I
  21. 300  CALL ADRS: REM  INITIALIZE HRCG
  22. 310  POKE 216,0: REM  ONERR OFF
  23. 320  END 
  24. 330  PRINT "UNABLE TO LOAD"
  25. 340  POKE 216,0: REM  ON ERR OFF
  26. 350  END